Interface Unit EbsOpen

Die Interface Unit @EbsOpen ermöglicht Zugriff auf die EbsOpen-Schnittstelle aus EbsScript heraus.

Bitte verwenden Sie immer die aktuellste Unit, da der Umfang von Release zu Release regelmäßig erweitert wird.

Auf diese Weise können Sie die volle Funktionalität von EbsOpen nutzen, auch Methoden, die nicht in EbsScript implementiert sind.

Beispiel:

uses @EbsOpen, @ComObj, @Variant;

var nc  :array of ebsobject; 

    c   : integer;
    co  : ebsobject; 

    kind: EpObjectKind;
    eobj: TIObject;
begin

  nc := getObjects ("ebspipeuniversalfluid", true, false);
  for c := low(nc) to high(nc) do begin
    co := nc[c];
    eobj := TIObject.CreateDispatch(getEbsOpenObject(co));
    kind := eobj.get_kind();
    println (enumtostring(kind));
  end;
end.